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ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
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COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
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* 
; FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


NOAA WN CO OD NAME WIN 0 OD NAME WIN $$ O OD NOAM EWN 3 0 OONOUE W OOO NOU SE wh 


SOOOCOCOCOOCOCCOCOCOOCOCOCOOCOSOCOOS SOOO OCOSOCOOCOCO OOOO OOOOOOOOOOOO 
PUPP STII BBS BB BB EE BANANA NAAN PPODINPUNIPNINPYPYD 2 OO OO Os ee 


0 : The VAX-11 MACRO assembler translate g Macnee source code into object 
3 ; modules for input to the VAX-11 LIN KER 

0 : ENVIRONMENT: USER MODE 

9 : AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 

9 : MODIFIED BY: 

0 ; V03-001 MTROO33 Mike Rhodes 25-Apr-1983 

: Fix Link truncation errors. 

0 : v02.08 PCG0002 Peter George 16-Apr-1981 

3 : Filter out abs psect code. 

0 : v01.07 RNOOOS R. Newland 13-Aug-1979 

oh : Variable symbol a and remove .ALIGN LONG statements 
00 : v01.07 RNOO22 ewland 31-0ct-1979 

38 : Translate SYSSLPY RT INES to set Lines/page 

00 : v01.06 RNOOO2 R. Newland 01-Feb-1979 

38 : 01 Changes for Source Update Merge 


1 4 | 
voer000 eS yamnesen se "SSEp=198e 84:16:59 EAACKOssneSpsonvacman;1 = 29° Fy, 


0000 38 5-- 
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~SBTTL DECLARATIONS 


ni 
; INCLUDE FILES: 


i . 
65; 
08 ; MACROS: 


SRABDEF ;DEFINE FB OFFSETS 
SMAC_GENVALDEF DEFINE GENERAL VALUES | 
SMAC_SYMBLKDEF ;DEFINE SYMBOL BLOCK OFFSETS 
SMAC_CTLFLGDEF ;DEFINE CONTROL FLAG OFFSETS 


: LOCAL DATA 


WONOULSW—-OO® 


-PSECT MACSRO_DATA,NOEXE ,NOWRT ,GBL LONG 


P2$DISPATCH:: 
SMAC_INTCODDEF DISPATCHTABLE 
82 P2$K_MAXCOD=$COUNT MAXIMUM PASS 2 CODE + 1 


3 PRP RPE WS Ar 
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-SBTTL MACSP2DRVR PASS 2 DRIVER 


recegee 


ae 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE OUTPUTS THE MODULE HEADER TO THE OBJECT FILE, 
INITIALIZES TO READ THE INTERMEDIATE ‘FILE*, AND THEN 
PROCESSES THE INTERMEDIATE FILE. 


Sete Ge Se Se Ge Ge Ge 


0000 -PSECT MACSRO_CODE_P2,NOWRT,GBL,LONG 
MACSPASS2_DRIVR:: 
5A Q0000000'GF 9E MOVAB = G*MACSAB_OBJBUF ,R10 ;R10 POINTS TO OBJECT BUFFER DURING PASS 2 
eettadl «' D4 CLRL G*MACSGL_PC 7PC STARTS AT 0 
7 Be CLRL R7 INITIALIZE STACK POINTER 

O31F 0 BSBW MACSWRT_LST_INI INITIALIZE LISTING BUFFER 
06 6B 29 & BBSC #FLGSV_FIRSTLN,(R11),10$ ; Branch if immediate r 

FFE?" 0 BSBW MACSGE ;START WITH FIRST LINE OF FILE 

FFE4" 30 BSBW MACSFORM_LINENO ; Form Line number and audit trail 


= 
oO 
A 


00000000'GF  00000000'GF  9€ MOVAB G*PSECTSMAIN,G*MACSGL_PSECTPTR ;START IN BLANK PSECT 
$ OUTPUT MODULE HEADER INFORMATION 
BSBW  MACSOBJHDROUT ;OUTPUT MODULE HEADER INFO 


: ot I gg INITIAL SETTINGS FOR THE ENABLE/DISABLE AND LIST/NLIST 


FFD6" 30 
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AANA AAI AAI PPOPPIPPUPNI 4 4 4 | MQO DDO OOOO 0O0O000000 000 MMMM@DDE 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
55 _00000000'EF 3 1 MOVAB L“LST$G_DIRLIST,RS ;POINT TO THE LIST 
05 a5 OB AS 9 116 2$ CVTBL SYM$B_TOKEN(RS),SYMSL_VAL(R5) ;RESET TO THE INITIAL SETTING 
55 65 00 1 MOVL (R5),R5 ;LINK TO NEXT 
F612 1 BNEQ 2$ ;LOOP FOR ALL 
55 _00000000'EF 44 1 MOVAB L*“ENB$G_OPTIONS,R5 ;POINT TO ENABLE OPTIONS LIST 
05 a5 OB AS 9 4 120 3$: CVTBL SYMS$B_TOKEN(RS),SYMSL_VAL(R5) ;RESET 
55 65 08 4 1 MOVL (R5), RS 
Fo ‘ ! BNEQ 3$ ;LOOP FOR ALL 
ri ! ; SET UP TO READ INTERMEDIATE ‘FILE’ FROM VIRTUAL MEMORY 
59 00000000'GF 00 004 1 MOVL G*MACS$GL_INTQUE,R9 :POINT TO BEGINNING OF FIRST BLOCK 
58 OC AD 9E 2 1 MOVAB 12(R9),R8 ;R8 POINTS TO FIRST COMMAND 
57 04 1 LRL sINIT VALUE STACK POINTER 
00000000'GF 5E 00 005 1 MOVL P,G*MACSGL_SAVE_SP 7SAVE STACK POINTER 
7E 58 OB AD C1 $ 1 ADDL3 (R9) ,RB,-(SP) ;FIGURE END OF BLOCK ONTO STACK 
° ; AT THIS POINT: 
6 134 ; R10 POINTER INTO OBJECT BUFFER 
6 135 ; Rg POINTER TO CURRENT INTERMEDIATE 'FILE' BLOCK 
6 136 ; Re POINTER INTO INTERMEDIATE FILE (INCH=ALONG) 
2 ' ; 4 VALUE STACK POINTER 
65 139 Pass_2_Loop: 
6— 58 01 6 1 CMPL ~=—s RB, (SP) ;ARE WE AT THE END OF A BUFFER? 


L 4 
SP2DR “SEP- 212: - MAI 
voe000 RACSPSDRVR PASS. > DRIVER "S$Ep=1986 01:49:59 EmacnossmeSPooRvacman;1 = 993) vO 


Of 1F 8 141 BLSSU 108 s1F LSSU 
59 6 09 A 148 MOVL (R9), RO SYES=-CHAIN TO NEXT BUFFER 
49 D 14 BEQL MACSEARLY END TIF EQL THEN EARLY ENDING 
58 of a9 o9) Fo (144 MOVAB 12(R9),R8~ [POINT TO FIRST ACTION 
6 58 08 a9 5 ; 145 ADDL 8(R9) RB, (SP) [FIGURE END OF NEW BUFFER 
4 A 007 146 10$: MOV BL (RB) +,R6 :GET LENGTH OF FRAME 
6 g2 7B 14 SUBL2 #2,R6 [COUNT LENGTH AND COMMAND BYTES 
A 007 148 MOVZBL (RB) + ,RO :GET AN 
15 0081 14 BLEQ 20 :IF LE THEN SURELY ILLEGAL 
38 91 150 CMPB RO #P2$K_MAXCOD SENSURE LEGAL 
19 00 é 151 BLSS 308 iff LSS THEN LEGAL 
D4 0 : é 20$: CLRL RO +0 GOES TO ILLEGAL COMMAND ROUTINE | 
3 ° 138 ; CALL PASS 2 ACTION ROUTINE WITH: | 
00 A 136 ; R10 POINTER INTO OBJECT BUFFER | 
O8A 157: R9 RESERVED 
O8A 158: RB POINTER TO INTERMEDIATE FILE 
08A 159: R? VALUE STACK POINTER 
OBA 160 : R LENGTH OF COMMAND IN BYTES | 
; N OF VALUE STACK (MACS$AL_VALSTACKLR7)) 
00 A 161 R POINTER TO TOP OF E STACK (MACS [R7] 
; , R6, RS, AND R4- y Y 
OBA 168 REGISTERS R8, R6, RS, AND R4-RO MAY BE DESTROYED | 
: #<-1-2> ;SPECIAL MACRO LINE (-1 FLAG -2 BYTES)? 
FO OF 56 91 GORA 185 Sos: cme Bey nent-2 SPECIAL 1 FLAG -2 | 
56 $8 3¢ 0099 189 MOVZWL (RB),R6 :YES==-GET LENGTH OF TEXT 
56 «602)«CCOs«(0093)—Ss« 168 ADDL¢ # R i COUNT THE LENGTH WORD 
7E 58 56 C1 0096 169 40$: ADDL RGR SP) FIGURE START OF NEXT COMMAND | 
55  00000000'GF47 DE 009A 170 MOVAL G*M Créae VALSTACKER7), RS’ :POINT TO TOP OF VALUE STACK 
00000000'EF4O0 DD OOA2 171 PUSHL L+PasDISPANC HCROJ :GET ACTION ROUTINE ADDRESS | 
9— 16 Q0A9 1% JSB 5(S [DISPATCH TO ACTION ROUTINE 
58 8& 00 O00AB 17 MOVL (SP ‘SET POINTER TO NEXT COMMAND | 
A BRB PASS, Re OOP 
on te iA . 
é | 
0080 176 ; WHEN THE .END DIRECTIVE IS ENCOUNTERED, CONTROL WILL TRANSFER | 
9080 177 : TO HERE. | 
0080 179 MACSPASS 2 END:: 
D OVL § G*MACSGL_SAVE_SP,SP ;RESET THE STACK POINTER | 
SE 00000000'GF 00 0080 180 fio “MACS E 
05 0087 181 RSB 
OBB 188 | 
8 ' : ; WE REACHED THE END OF THE INTERMEDIATE FILE BEFORE WE SHOULD HAVE??!!! 
08 186 MACSEARLY_END:: 
00000000 ' GF 90 FB 187 CALLS #0,G*MACSERR_INTERN ;REPORT INTERNAL ERROR | 
RW N ;AND GO NISH PA 
FFSE* 31 0B 188 8 P2$END FINISH PASS 2 | 
C 190 ; 
o¢ 191 : ILLEGAL COMMAND ENCOUNTERED IN INTERMEDIATE BUFFER 
C 198 P2SILG:: 
00000000'GF 00 FB O00C2 19% CALLS #0,G*MACSERR_INTERN ;REPORT INTERNAL ERROR | 
FF34° 31 C9 195 BRW P2$END :GO FINISH PASS 2 | 
aa 199 + STORE PIC CODE COMMAND NOT IMPLEMENTED (THIS SHOULD NEVAH HAPPEN SUH!) 


mM 4 | 
vou-000 RACSPSDRVA PASS 2 DRIVER "SREP SBE BF:L5:49 EAACKOSsReSPSpkvmsman:1 = "28® 8), 


CC «4198; 
CC § P2$sPIC:: 7(DO WE REALLY NEED THIS?) 
00000000 ' GF 90 fe ce ? CALLS #9 G*MACSERR_INTERN ‘REPORT INTERNAL ERROR 
FF2A" D BRW P2$END 'GO FINISH PASS 2 


N 4 | 
rsesagh RARE GRAY 'BAC0U Gaver MESERCHQEL SRELGS9 LADSSRESSSONOE Ry PORE 


* FUNCTIONAL DESCRIPTION: 
THIS ROUTINE EMITS A SYMBOL OR PSECT NAME TO THE OBJECT FILE. 
INPUTS: 
R6 SYMBOL BLOCK ADDRESS 
OUTPUTS: 
SYMBOL NAME AND SIZE OUTPUT TO OBJECT FILE 
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MACSSYMNAMOUT: : 
OF 68 2—~ €0 BBS #FLGSV_DBGOUT,(R11),5$ ; If debugger record 
50 00000000'EF bg MOVL §§ MACSGL-PSECTPTR,RO ; or zero psect 
i BEQL 5$ ; Then output record 
17 00D AO 3«6(03—C—sé€E: BBC #PSC$V_REL, - ; Else if abs psect, then 
2 PSC$W_OPTIONS(RO),20$ : filter record out 
5 04 A6- 9A 5$: MOVZBL SYM$B_NAME(R6) ,R3 ; Get offset to symbol count/name 
a 2. Be ee SUBL R3,R6,R3 ; and form its address 
54 83 90 MOVB (R$)+-R4 ;_ Get count and advance pointer to name 
A $0B)_OUTBYT ® sEMIT SIZE OF NAME 
BA 83 90 é 10%: MOVB (R5)+,(R10)+ ;STORE ONE CHARACTER OF NAME 
FA 54 F é ee SOBGIR R4,10$ [LOOP FOR WHOLE NAME 


MACSP2DRVR PASS 2 DRIVER MODULE 16-SEP-1984 02:12:40 VAX/VMS Macro v04-00 Page 8 
v04=000 BOSE ce Pate GUT COY ROUTINES mT TR MCT TA CIT CR * | 
} ; -SBTTL OBJECT FILE OUTPUT ROUTINES | 
100 5 34+ 
} 0 § 3; FUNCTIONAL DESCRIPTION: 
019 8; OUTPUTS THE BYTE IN RO TO, THE STORE IMMEDIATE COMMAND 
100 9: ALREADY IN PROGRESS. IF T "ELGSM_STOIMF’ IS 
0199 40; FALSE THEN A NEW STORE IMMEDIATE COMMAND 1S STARTED WITH 
100 261: THIS BYTE. THE FIRST BYTE OF A STORE IMMEDIATE COMMAND | 
0100 4g : IS THE TWO'S COMPLEMENT BYTE COUNT OF THE STRING UP TO 
0100 243: -128. (*0200). 
8198 44; 
100 245 : INPUTS: 
0100 re : 
0100 247: RO BYTE TO STORE | 
0100 248: 
8105 49 > i 
100 250 
0100 251 MACSSTOIM:: 
OE 68 2E— £0 0100 $2¢ BBS #FLGSV_DBGOUT,(R11),5$ ; If debugger record 
51 00000000'EF 00 0104 25 MOVL § MACSGL~PSECTPTR,R1 : or zero psect 
05 13 0108 54 BEQL 5$ ; Then output record 
2D OD Al =62—03)—COE1=—010D 55 BBC #PSC$ ; Else if abs ry then 
011 56 PSC$W VOPFTONS(RID, 30$ =: filter record ou 
0000'8F SA 81 011 57 5$ CMPW sR, #MACSAB_OBJWRN ipAst WARNING cImit? | 
02 1B 011 58 BLEQU§ 10$ EQ NO 
59 10 0119 259 BSBB =«- MAC SWRTOBJ SYES=--OUTPUT BUFFER 
09 68 12 €4 0118 260108:  ®BBSC HL GS STOIMF,(R11),20$ :BRANCH IF STORE IMMEIDATE IN PROGRESS 
00000000'GF SA DO O11F 61 MOVL 0,G*MACSGL_STOIMPTR | :NO--START ONE. 
ga 94 0126 6¢ CLRB Raise [LEAVE ROOM FOR COUNT BYTE AND INIT IT 
8 0 90 0128 263 20$: MOVB RO, (R10) i STORE DATA BYTE 
Q0000000'FF 97 012B 264 DECB aL MACSGL_STOIMPTR OUNT THE BYTE 
80 8F O0000000'FF 91 0131 365 CMPB = @L“MACSGL~STOIMPTR, #0206 :DONE 128 YET? 
04 1B 0139 266 BLEQU 3 YES 
00 68 12 Ee 0138 367 BSS  #FLGSV_STOIMF,(R11),%0$ <NO--FLAG STORE IMMEDIATE IN PROGRESS 
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30$: RSB | 
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PASE<g DRIVE mvt SUE Ba RE, | |S 
vou-000 OBJECT FILE OUTPUT ROUTINES @SEP1984 01:49: . ae, i" 
-+¢ 
149 rt > FUNCTIONAL DESCRIPTION: ages FL 
1? PAST THE WARNING LIMIT, THE 0B. 4 
133 SEE: tATRE PEER PONTE 15,228) Tanna G40 SORE it 
140 275: OBJECT FILE BUFFER. FL 
gre8 ig : INPUTS: ft 
B1e6 8 : RO BYTE TO STORE FL 
TEE i 
a L 
14 FL 
Geo 38 macscuneyr:: ;PAST THE WARNING LIMIT? | HA 
0000' 8F SA B1 0140 84 yt | aaatatas cscrara ‘IF LEQU NO 4 
ge 8 Pe Be SSBB” MACS$WRTOBJ i YES--QUTPUT RECORD 
68 11. 0149 a9 108: BRB MACSOUTOBJ OND RETURN 
gg Shs 
greg 231 FUNCTIONAL DESCRIPTION: 
Sieg $38 OUTPUT THE BYTE IN RO TO THE OBJECT FILE 
0148 94 ; 
0148 295 : INPUTS: 
b1¢8 39 : RO BYTE TO OUTPUT 
Sieg 38 | 
Seg 301 .ENABLE LSB 
0148 02 
0148 303 MACSOUTOBJ:: nate, Oh 0 Gebeneek Peseie 
omooree Oh Bler 30 MOV MAC SOL -PSECTPTR RI +; or zero psect 
51 Q0000000°EF DO O14F 305 MOVL \ A By. ee 
$3 HH EL 307 tae a - : Else i if abs S psect, then 
panes 91 O18 309 5$ CMPB Pscsu, OPT in YP 1) 208, opBU : SAME RECORD TYPE? 
e ‘ F $ 
pane oe RE Mito to BA teers ciclo sah iain 
016C \ 10$: 
016C 313 MACSOUTOBY 0:: SSTORE BYTE IN BUFFER 
a 2 OF Hh a5 18 pore STCGEV STOIMF, (R11),20$ :NO LONGER STORING IMMEDIATE 
sadn f2 b198 18 20$: RSB 
TESS | neat 
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{FUNCTIONAL DESCRIPTION: 

; WRITE OUT OBJECT CODE BUFFER TO OBJECT CODE FILE 
INPUTS: 

; R10 POINTS TO WHERE WE ARE IN BUFFER 

; ***NO REGISTERS USEDee# 


MA 
Sy 
Pp 
Pp 
P 
P 
Pp 
pP 
Pe 
Pe 
Pe 
P2 
Pe 
ps 
Pe 
PZ 
Pe 
PZ 
PZ 
Pe 
Pe 
Pe 
Pé 
PZ 
Pe 
P2 
PZ 
PZ 
P2 
Pe 
é 
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MACSWRTOBJ:: 
SA 0001'8F BI CMPW #MACSAB_OBJBUF+1,R10  ;1S BUFFER EMPTY? 
37s 1E BGEQU :IF GEQ YES 
3368 15 €1 BBC #FLGSV_OBJXST,(R11),10$ :BRANCH IF NO OBJECT FILE | 
50 DD PUSHL RO [NO=-SAVE RO | 
50 SA  00000000'BF C3 SUBL3 #MACSAB_OBJBUF,R10,RO :FIGURE LENGTH OF RECORD 
00000022"EF 50 B80 MOVW RO,L*MACSOBJECT RAB+RABSW_RSZ ;SET RECORD LENGTH IN RAB 
SPUT RAB=L“MACSOBJECT_RAB,- ;SEND RECORD TO OUTPUT FILE 
ERR=G“MACSERR_PUT : ERROR ROUTINE 
03 50 és BLBS _—RO,5 :BRANCH IF SUCCESSFUL 
FE57" 30 BSBW  MACSCLS_DEL_OBJ : DELETE OBJECT FILE 
00000000'GF 06 5$ INCL  G*MAC$GC_OBJ_RCNT [COUNT OBJECT RECORD WRITTEN 
50 8—D0 POPL RO SRESTORE RO 
5A 00000000'GF 9E 10$ MOVAB  G*MACSAB_OBJBUF .R10 SRESET POINTER INTO BUFFER | 
BA 00000000'GF 90 MOVB G*MACSGL~RECTYP,(R10)+ :STORE RECORD TYPE IN BUFFER 
00 68 12 ES ie BBCC #FLGSV_STOIMF,(R11),20$ :STOP ANY STORE IMMEDIATE IN PROGRESS 
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MACSP2DRVR PASS 2 DRIVER MODUL 16-SEP-1984 02:12:4 AX/VMS Macro Vv04-00 Page 
Hyatt 4 LISTING FILE ROUT THES mit} y §F: 18:49 EMACRO SROIPSDRVR OMAR: 1 ° 
i¢ r «SBTTL LISTING FILE ROUTINES 
1¢ : j++ 
if 2¢ 3 FUNCTIONAL DESCRIPTION: 
iC 28 ; POP THE Al LONGWORD OFF THE VALUE STACK AND LIST THE NUMBER 
1¢ 57 ; OF BYTES IN RO. UPDATE RS TO POINT TO THE TOP OF THE VALUE 
1¢ 58 ; STACK AGAIN, 
1C 39 3 
O1¢8 69 : INPUTS: 
OCs 6¢ ; RO NUMBER OF BYTES TO OUTPUT (1 <= RO <= 4) 
i¢ 63; R POINTS TO TOP OF VALUE STACK 
01¢5 64 ; VALUE STACK POINTER 
01¢5 65 ; 
01¢5 66 : OUTPUTS: 
01¢5 67 ; 
01¢5 68 ; RS POINTS TO NEW TOP OF STACK 
01¢5 69 ; R7 UPDATED 
01¢5 70 ; MACSGL_PC INCREMENTED BY 1 
01¢5 71; 
01¢5 2 — 
01C5 7 
01¢5 74 MACSLIST_BYT_O:: 
55 00000000'GF47 DE 01C5 75 G*MACSAL_VALSTACKCR7],R5 ;POINT RS TO TOP OF STACK 
O1CD 376 MACSLIST_BYTES:: 
50 DD O01CD 377 PUSHL RO :COPY BYTE COUNT 
50 DD O1CF 378 PUSHL RO :COPY ONCE MORE FOR GOOD LUCK 
53 Q00000000'GF 9E& 0101 379 MOVAB G*MAC$GL_VALUE,R3 [POINT TO RESULT ARE 
63 65 DO 0108 380 MOVL (R5),(R3) : COPY VALUE FROM TOP OF STACK 
57 D7 0108 381 DECL R7 :"POP" THE STACK 
75 D5 01DD 8¢ TSTL =(R5) SKEEP RS POINTING TO TOP OF STACK 
50 83 9A ODF 383 108: MOVZBL (R3)+,R0 [GET NEXT BYTE 
18 10 O182 384 BSBB. - MAC$LST_HEX_BYT ‘OUTPUT ONE BYTE 
FB 6E FS O164 385 SOBGTR (SP),10$ :LOOP FOR ALL BYTES 
BE 05 O1E7 386 TSTL (SP)+ sCLEAN STACK 
0169 387 SINC_PC (SP)+ :1N NC. PC AND CLEAN STACK 
00000000'GF D7 OEE 388 DECL G*MAC$GL_LIST uP LISTING POINTER 
00000000'FF 20 30 girs 388 MOVE #*A/ Poor *MACSGL LIST_ pth’. ASTORE A SPACE 


MACSP2DRVR PASS 2 DRIVER MODULE 16-SEP-1984 AX/VMS Macro v04-00 Page 12 | 
660 LISTING FILE ROUTINES g-3EF 1382 be: 18; $8 EMACRO. SRC SPSDRVR-MAR: 1 . (10) | 
IEC 399 4s 
4 4 ; FUNCTIONAL DESCRIPTION: 
1FC 95 ; THIS ROUTINE OUTPUTS ONE BYTE TO THE LISTING FILE IN 
1FC 36 : HEX (TWO HEX DIGITS) 
1FC mt é 
1FC 98 ;-- 
1FC 99 | 
1FC 400 MACSLST_HEX_BYT:: 
50 9 9A FC 491 MOVZBL RO,RO : ENSURE REST OF WORD ZERO 
0001'8F O0000000'GF 81 1 408 CMPW GOMACSGL_ LIST_PTR, mmacsab. _LST_OP2+1 ; Time to dump buffer? 
1 1A A 404 BGTRU 108 9 it GTRU 
0B 6B 2 EO 405 #ELGSV_UPDFIL,(R11), updated file it is time no 
0001'8F O0000000'GF 81 021 406 CMPW G*MACSGL_LIST_PTR, dS ab ieee ND+1 ;TIME 1 DUMP THE BUFFER? 
06 1A 1 407 BGTRU 10$ :TF GTRU NO 
1B 408 5$: 
0048 30 1B 409 BSBW MACSURILST 
50 6€ 00 O21E 410 MOVL (SP),RO ;REFRESH THE Aa: 
05 10 0 31 411 10$: BSBB 20$ SOUTPUT LOW 4 BITS 
50 8& FC BF 78 0223 aig ASHL #-4,(SP)+,RO ;POSITION TO GET HI 4 BITS 
00000000'GF 07 0228 413 208: DECL G*MACSGL- _CIST_PTR 
FO BF BA O22E 414 BICB2 #*C<*xF>7RO SISOLATE 4 BITS 
00000000'FF  0000023E'EO 90 og 2 415 MOVB L*HEX_TAB(RO) ,@L*MACSGL_LIST_PTR ;CONVERT AND OUTPUT 
05 9 30 416 RSB 
42 41 39 38 37 36 35 34 33 32 31 39 O23 418 HEX_TAB:.ASCII /0123456789ABCDEF / CONVERSION FROM BINARY TO HEX 


prea: G 5 
MACSP2DRVR PASS 2 DRIVER MODULE “SEP=1984 AX/VMS Macro V04-00 Page 13 
me MACSWRT_BLNKLIN WRITE A BLANK LINE TO uu: -SEP-1984 84 18; $8 ERACRO SROSIPSDRVR MAR: 1 9 aD 
ef : 9 -SBTTL MACSWRT_BLNKLIN WRITE A BLANK LINE TO LISTING 
4E 4 ¢ ++ 
rt 2 ? : FUNCTIONAL DESCRIPTION: 
at 4 5; THIS ROUTINE WRITES A BLANK LINE TO THE LISTING FILE 
4E 4 $ ;-- 
4E 428 
4E 429 MACSWRT_3 _BLNK:: 
03 DD 4 430 POSHL #3 ;SET TO WRITE 3 BLANK LINES 
02 11 g 3 4 1 BRB WRT_BL 
0252 4 : MACSWRT_2_BLNK:: 
02 oo 0252 43% HL #2 i SET TO WRITE 2 BLANK LINES 
06 10 0254 435 WRT_BL: BSBB  MACSWRT_BLNKLIN WRITE A BLANK INE 
FB 6E F5 0256 4 $ SOBGTR (SP) ,WRT_BL LOOP FOR ALL 
BE 05 0259 4 (SP)+ tP EAN STACK 
05 0258 4 : RSB TEXIT 
02e5c 4 
025C 440 MACSWRT_BLNKLIN:: 
00000000'GF 00000000'8F pO 0 5¢ 441 MOVL #-MACSK_LIST_SIZE, G*MACSGL LINELN ;SET FOR NULL LINE 
00 11 0 67 44g BRB MACSWRICST ;WRITE LINE AND RETURN 
0969 444 .SBTTL MACSWRILST WRITE LINE TO LISTING FILE 
0269 445 
0269 446 ;++ 
0269 re : FUNCTIONAL DESCRIPTION: 
$588 449 : WRITES THE CURRENT LISTING LINE AND INITIALIZES FOR THE 
0269 450 ; NEXT LINE. 
0269 451; 
0269 43¢ t-- 
0269 45 
0269 454 MACSWRILST:: 
52. 00000000'GF D0 0269 455 MOVL  G*MACSGL_LIST_IT,R2 7GET CURRENT LISTING FLAG 
24 6B 1 E1 0270 456 BBC #FLG$V_MACLTB;(R11),20$ :BRANCH IF NOT EXPANDING A MACRO 
1D OOOOO00S*EF EB 0274 457 BLBS = L“LSTSG_MACROXPAN+SYMS$L_VAL,20$ ;EXPANDING--BRANCH IF LISTING 
0 7B 458 * MACRO EXPANSIONS 
52 D4 0278 459 CLRL = RR CLEAR R LISTING FLAG 
14 QOOOO00S'EF £9 9270 460 BLBC = L“LST$G_MACROBIN+SYMSL _vAL, 0$ crt NOT LISTING 
OD 6B OC ES 84 46¢ BBSC —- #FLGSV_MEBLST,(R11),10$ SPECIAL LIST FLAG ON? 
00000000'GF 00000000'GF 01 0 8 46 CMPL ga MACSGL_PC,G*MACSGL SAVE P SAME PC AS LAST TIME? 
oe 464 BEQL os 4 “eae YES 
52. SE 00 0295 465 10$: MOVL  SP,R2 iNO==SET LISTING FLAG 
50 00000000'GF D0 0298 466 20S: MOVL G*MACSGL_LINELN,RO GET LEN GTH OF CURRENT LINE 
FFFFFFFF'EO OC 91 oF 46 CMPB Os #F FF ,L“MACSAB_LINEBF- pe LAST CHARACTER A FORME EED? 
08 12 As 468 BNEQ 308° :1f NEQ NO 
00000000'GF oD AB 469 DECL § G*MACSGL_LINELN SYES=-DON'T COUNT IT 
OF 13 O2AE 470 BEQL 40% TIF EQL ZERO LENGTH LINE 
00000000'GF 05 0280 471 30S: TSTL G*MACSGL_LIST_LVL SCHECK THE LISTING LEVEL 
7 19 O28 476 BLSS 40% :IF LSS DON'T LIST 
9 14 0288 47 BGTR 50% :IF GTR LIST EVERYTHING 
01 : D1 BA 474 CMPL Re eo [DON'T LIST '.LIST/.NLIST® AT LEVEL 0 
12 02BD 475 BNEG 608 [IF NEQ NOT .LIST/.NL 
2 D4 O2BF 476 40S: CLRL =: RR SCLEAR LISTING FLAG 
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495 


R MOD 
WRITE 


oo 
Pe 


ow 


808: 


60$ 


SP,R2 :SET LISTING FLAG 
R ‘LISTING FLAG CLEAR? 
90$ :IF EQL YES--D0 NO OUTPUT 
#FLGSV_LSTXST, (R11) ,MACSWRT_LST_INI BRANCH IF NO LISTING FILE 
:SAVE IRDEX INTO LINEBF 
§ pACcseL LINE_CNT | THE END OF A 
0$ tIF LEQ YES-=GO DO ONE 
#FLCSV_NEWPND, (R11),80$ :BRANCH IF NEW PAGE NOT PENDING 
MACSLST_PAG HOR SYES=-OUTPUT PAGE HEADER 
G*MACS$GC_LINELN,RO SFIGURE SIZE OF LIN 
#MAC$K_LTST SIZE,RO [FIGURE TOTAL LENGTH OF LINE 
“MACSCIST_RAB,RI1 :POINT TO LISTING RAB 
RO, RABSW_RSZ(R1) STORE RECORD SIZE 
#FLGS$V Weta (R11),87$ ;BRANCH i ERROR IN See 


G*MACSAB_LST_END ,RABSL PBF RI) STORE BUFFER A 
AB=(R1) 7 WW E THE LINE TO THE LISTING 
ERR=G°MACSERR _PuT 


R ;BRANCH IF GOOD PUT 
MACSCLOSE_LIST CLOSE THE LISTING FILE ON ERROR 
G*MACSGL_CINE_CNT ON PAGE 


Ge :DECREMENT LINES LEFT 
#FF .L“MACSAB_I INEBF - -1(R0S j FORM 
100$ 


INDEX INTO LINEBF 
poet 
#FLGSV_NEWPND, (R11), 1008" TYES==FLAG NEW PAGE NEEDED 
#FLGSV_MEBLST,(R11), 110$ ;CLEAR SPECIAL LIST FLAG IF 
it eX at AND WE WERE NOT 


5 | 
LINE TO LISTING Fie —'S-SEp=-19Be 01:49:59 EMACKOssRESPSDRVR-MAR:1 =| "2° (Hf), 


Ta 


1 5 
voe-000" RACSURTLST ORITE LINE TO LISTING FILE  'S-SEP-19B6 01:49:99 EMACKOSSRCSPSDRUR-MAR; 


1 7 MACSWRT_LST_INI: 
38 «BB : BUSAR  #*°MCR3.R4,R5> SSAVE REGISTERS 
90000900" F D4 CLaL G*MACSE CINELN :ZERO LENGTH OF LINE IN BUFFER 
2 C 0 MOVCS #0,(R11)7#*A/ /,- :FILL LISTING BUFFER WITH SPACES 
1 pmacsx CIST_SIZE.- 
9000 0; GF 4 ; G*MACSAB_LST_END 
00000000'GF O0000000'GF 9E 034 MOVAB G*MACSAB_ SEQ NUM? ~GAMKESGL List, PTR INIT LISTING POINTER 
00000000'GF oD 0350 4 PUSHL G*MACSGL ALOE SAVE 1 MIGHT BE HERE 
‘ 5 SVPUSH G*M ACSGL PC :$ AEK ‘- 
0 92 9A 036 6 MOVZBL @# [SET TO LIST TWO BYTES 
FESD 30 «036 BSBW MACSLIST _BYT_0 tL 
6 68 8 SDEC_PC #2 : DON" T INCREMENT PC FOR IT THOUGH 
Y0000000'GF BEDO 036D 9 POPL GTMACSGL LUE ESTORE LUE 
00000000 ' GF 90000000 sr DO 0374 0 MOVL MACSGL~ pce “SAMACSGL save, xe AVE BC 
00000000'G 98 037F 1 CVTBL ft AG AMACSG LIST_IT~ SUM LINE IS LISTED 
D7 0387 ¢ DECL GeMACSGL at PTR tek UP POINTER 
00000000 ' FF 20 90 038D MOVB EckMACSGL _LIST_ nie STORE A SPACE THERE 
BA 0394 4 POPR oon tr” R4,R5> ;RESTORE REGISTERS 


Pa 15 | 
9 12) 


voee00R MACELST PAGCHOR URITE NEW PAGE AND HEADE 'SosEp=198¢ 07:49:49 FAACKOSSReSPSDRUR aR; 1 


STORE TERMINAL P 
RCE PA 


50  00000000'GF MOVL  G*MACSGL_SRCPAG;RO :GET SOURCE PAGE NUMB 


97 .SBTTL MACSLST_PAG_HDR WRITE NEW PAGE AND HES DER TO LISTING 
9 p++ 
3 ; FUNCTIONAL DESCRIPTION: 
9 ; THIS ROUTINE OUTPUTS A PAGE MARK AND A NEW PAGE HEADER TO 
3 THE LISTING FILE. 
3 t-- 
On &S 088 Maes eee aFLGSV_NEWPND,(R11),10$ CLEAR NEW PAGE PENDING FLAG 
00000000'GF 200000" F 06 10$:  MOVL  G*MACSGL_LN PAGE G*MACSGL LINE_CNT ; Reset Lines/page 
03 68 09 § BBS #FLGSV_LSTXST,(R11),20$ ;BRANCA IF LISTING FILE 
oo7F 631 RW 50$ =NO LISTING FILE--GO AWAY 
3F 6s BB 20$: PUSHR #*M<RO,R1,R2,R3,R4,R5> :SAVE REGISTERS 
pee;  SASCTIM_S TIMBUF=MACSAL_ATIM_DSC :GET NEW TIME FOR PAGE HEADER 
0000000' GF po PUSHL “G*MACS$GL_LIST PTR ;SAVE CURRENT LISTING POINTER 
00000000'GF 00000000'GF  9€ MOVAB G*“MACSAB-HD_END,G*MACSGL_LIST_PTR ;POINT TO WHERE PAGE # GOES 
00000000 ' GF 06 INCL  G*MACSGL“LPTPA TBUMP~PAGE COUNTE 
50 00000000' GF p MOVL  G*MACSGL~LPTPAG,RO :GET LISTING PAGE NUMBER 
0077 30 BSBW MACSDEC UT_R2L “OUTPUT TO BUFFER 
00000000° GF FEEEEEFF GE 3 VAB  G*MAC$AB_SBT_END-1,G*MACSGL_LIST_PTR ;POINT TO WHERE SOURCE PAGE # G 
FFFFFFFE'GF 29 # G*MACSAB_SBT_END-1 ; AREN 


BSBW MACSDEC_OUT_R2L 


E 
OUTPUT SOURCE PAGE NUMBER 
VAIL SPOT 


0058 3 
50 00000000'GF 1 23 SUBL3 #1,G*MATSGL_-LIST_PTR,RO ;GET NEXT A 
“A/(/, (RO) 7STORE OPEN PAREN 


MOVB #*A/ 
MOVAB L*“MACSLIST_RAB,R5S 


>> 
OW —$ FTO CTCF PW MALMO SMYLOOVWOVCCOU"™S SO tt atte 
SN DS DS DS De DE DEDEDE DD BB BB BE ANIA Itronon 


PWN 9 OD NA NE WIN © OD NAN E WIN CO OD NOU EW 0 OO NOUS wt OOan 

=z 
o 
< 

ea 
> 
~ 
~ 
~ 


A 
A 
A 
5 
C 5 
03¢ 5 
03C¢ é 
03D 
03D 5 
O3é : 
O3E 
Bee 5 
60 8 3F 5 
55  00000000'EF 3 O3F ‘POINT TO LISTING RAB 
g2 AS 0001'S8F BO O3F MOVW #MACSK_HD SIZE+1,RAB$W_RSZ(R5) ;STORE RECORD SIZE (INCLUDE FORMFEED) 
28 AS 00000000'GF 9 040 MOVAB G*MACSAB_AD_NEWPG,RABSC_RBF (RS) :AND RECORD ADDRESS 
10 040 BSBB sé OS sWRITE FIRST LINE OF NEW PAGE 
g2 AS  0000'8F 80 040 MOVW $#MACS$K_SBT_SIZ,RABSW_RSZ(R5) ;LENGTH OF SUBTITLE LINE 
28 A 00000000'GF 9E 041 5 MOVAB G*MACSAB_SBT_IDNT,RABSL_RBF(R5) :AND ADDRESS 
i 41 5 BSBB sWRITE SUBTITLE LINE 
22 a5) «B44 5 CLRW  RABSW_RSZ(RS) [WRITE BLANK LINE 
0A 10 04 5 BSBB $ eh 
00000000'GF BEDO 04 564 30$:  POPL #G*MACS$GL_LIST_PTR SRESTORE LISTING POINTER 
3F = BA O04 565 40$:  POPR #*M<RO,RT,R2,R3,R4,R5> RESTORE REGISTERS 
05 04 3 50$:  RSB 
o¢ 568 : WRITE LINE TO LISTING -- R5 POINTS TO RAB 
15 68 O09 €1 8 3 60$: BBC #FLGSV_LSTXST,(R11),70$ ;BRANCH IF LISTING DISABLED 
04 5 SPUT RAB=(R5),ERR=G*MACSERR_PUT ;WRITE LINE TO LISTING 
0350 €8 0440 5 BLBS sa sBRANCH IF GOOD PUT 
FBBA’ 30 044 5 BSBW MACSCLOSE_LIST TELSE CLOSE THE LISTING FILE 
05 0446 574 70S: RSB 


ae 


RIVER 16*SEP=1984 02:12:40 VAX/VMS Macro v04-00 Page 17 
aoe MACSDEC OUT RAC DUT EUT DECIMAL NUMBER TO mi iSet) 7 84:18:49 ERACRO. SRCIPSDRVRMAR: 1 9 le 
447 $7 .SBTTL MACSDEC_OUT_R2L OUTPUT DECIMAL NUMBER TO LISTING 
rr nt ae 
44? hi $ FUNCTIONAL DESCRIPTION: 
447 1: THIS ROUTINE OUTPUTS A 5 DIGIT OR LESS DECIMAL NUMBER 
44? ; : TO THE LISTING FILE (IN REVERSE) 
467 4 > INPUTS: 
447 : ; RO NUMBER TO OUTPUT 
447 : 
iy a 
447 MACSDEC_OUT_R2L:: 
8 BB 0447 3 spe -PUSAR #°M<R3_,R4G,RS> sSAVE REGISTERS 
0001869F 8F 5 D1 0449 3 CMPL RO, #99999 'CHECK FOR NUMBER TOO LARGE 
7 1B 045 9 BLEGU tIF LEQ NUMBER IS OK 
50 0001869F BF DO ‘3 94 OVL  #99999,R0 TELSE USE THE MAXIMUM 
54 50 Re 45 95 10$ MOVZWL RO,R4 [SET UP FOR THE EDIV 
5 D4 Stee 36 CLRL [CLEAR HIGH LONGWORD 
50 54 54 OA o 045 97 20$ EDIV. #10,R4,R4,RO 'DO A DIVISION BY 10 
26 0 80 408 598 ADDB2 #*A/0/-RO [CONVERT DIGIT TO ASCII 
4—E 010 Oc86 599 BSBB. MACSLST_CHAR [OUTPUT DIGIT TO LISTING BUFFER 
54 D5 0468 600 TSTL = RG TARE WE DONE? 
F2 12 Q46A 601 BNEQ 208 [IF NEQ NO 
38 «BA beet 60¢ POPR  #*M<R3,R4,R5> SYES--RESTORE REGISTERS 
05 046€ 60 RSB EXIT 


Ls ‘a 
nsseaat RAZCSNELBAFr oecina. mance ve “ESEEISH SI8:S8 UAMUSARGPBSIOE Re." CB, 


ie 6 = .SBTTL MACSDEC_OUT_L2X OUTPUT DECIMAL NUMBER LEFT TO RIGHT 
46F 607 ;+ 
AGF 6 8 ; FUNCTIONAL DESCRIPTION: 
Aor e16 : THIS ROUTINE OUTPUTS A DECIMAL NUMBER LEFT-TO-RIGHT. 
GF 61¢ : INPUTS: 
46F 614: RO NUMBER TO CONVERT 
46F 615: R1 OUTPUT POINTER 
r : 618 ; OUTPUTS: 
046F 618 : RO UPDATED OUTPUT POINTER 
46F 619: 
fish i 
46F 6 é MACSDEC OUT L2K:: 
078 ef BB 046F 6 USAR #*M<R3,R4,R5,R6> ;SAVE REGISTERS 
6 51 DO 04673 624 MOVE R1,R6 [SET OUTPUT POINTER 
54 O50) iO 0476625 MOVL  RO.R4 ;AND_ NUMBER 10 PRINT 
55 6 0479S 6 CLRL oR SCLEAR HI WORD 
e6 10 0478 6 BSBB  —DEC_OUT [CONVERT AND OUTPUT THE NUMBER 
50 56 DO 047D 628 MOVL  R6,RO [SET UPDATED POINTER | 
0078 BF BA 0480 629 POPR #*M<R3,R4,R5,R6> SRESTORE REGISTERS 
5 0484 630 RSB 
068s 632 
04 3 6 5 i FUNCTIONAL DESCRIPTION: 
tbs 635 ; THIS ROUTINE OUTPUTS A 5 DIGIT DECIMAL NUMBER IN RO TO 
485 6 $3 : THE LISTING FILE LEFT-TO-RIGHT. 
485 637: 
bens Gao 
485 640 MACSDEC_OUT_L2R:: 
0078 BF BB 485 641 “PUSAR #*M<R3,R4,R5,R6> ;SAVE REGISTERS 
54 50 00 0489 64g y RO,R4 [COPY THE NUMBER 
55 4 048K OG CLRL ‘CLEAR HIGH WORD 
56 00000000" GF : 4 644 HOVE GMACSGL_LIST_PTR,R6 GET THE LISTING POINTER | 
00000000' GF 3 D0 049 G46 MOVL  R6,G*MACSGL List _PTR | UPDATE LISTING POINTER | 
0078 BF BA 049 POPR #*M<R3,R4,R5,R SRESTORE REGISTERS | 
ee oo 
4A3 650 DEC_OuT: 
50 56 56 OA 78 O4A3 651 EDIV. #10,R4,R4,R0 :DIVIDE EM UP 
7— 50 30 81 048 63¢ ADDB3 #*A/0/.RO.-(SP) ‘CONVERT REMAINDER TO ASCII AND STACK IT | 
4 D3 4AC 65 TSTL = RG SARE WE DONE? 
02 13 O4AE 654 EQL 208 SIF EQL YES 
F1 10 480 655 BSBB  —s«»DEC_OUT tNO=-RECURSE | 
8 BE 90 048 656 208:  MOVB (SP3+,(R6)+ :GET DIGIT BACK AND STORE IT | 
05 0485 65 SB TRECURSE OR RETU 
ae 
4B6 660 : FUNCTIONAL DESCRIPTION: 
486 661: 


voseo00 MAtSoec oureL Y Lex N OUTBUT DECIMAL eo LE 4” SEP] $8e $f: 18: 3 UAACKO’SRCIPSDRVR «MAR; 1 


48 ; Hd THE CHARACTER Be Ate i BST ING BUFFER FROM 
48 : I FT, THE POINTER INTO THE LISTING BUFFER IS 
48 DECREMENTED FIRST. 


48 
48 ies 
48 

4B6 G68 MACSLST_CHAR: 
B0090000"GE 7 OuB “DECL  G*MACSGL_LIST_PTR ;BACK UP THE PO 
00000000'FF 50 


INTER 
+ rg 4 0 MOVB ROMA SCL LIST CIST_PTR ;PUT CHARACTER INTO LINE BUFFER 
0 4C 671 RSB 


MA RVR PASS 2 DRIVER MODUL SEP=1984 02:12: AX/¥YMS Macro V04-00 
S088 : TERMINAL OUTPUT ROLF INES "er8 P=1984 84:18:48 EMACRO. SRC IPSDRVR MAR: 1 
4C4 673 .SBTTL TERMINAL OUTPUT ROUTINES 
tee BPS ses 
4c 676 : FUNCTIONAL DESCRIPTION: 
4C4 678 : THIS RO TINE PRINTS THE LINE CONTAINED IN MACS$AB_LINEBF 
4C4 67 : AND MAC$AB_LST_END. TH HE LENGTH OF THE LINE IS CAL CULATED 
4C4 0; AND THE teak 1S OUTPUT 
4C4 681: 
tte 68S 
4C4 4 MACSTERM_BLANK:: 
n RRR oe B. HET A hese 1 1 
| eee acs i rah. Natl MACSPUT_TERM [GO OUTPUT AND RETU 
59 0000'8F 00000000'GF Al 04(B 689 ADDW3 | G*MACSGL_LINELN, #MACSK_LIST_SIZE,RO i COMPUTE SIZE OF LINE 
51 00000000'EF  9€ 0¢08 690 MOVAB L*MACSAB"LST_END,R1 ;GET ADDRESS OF BUFFER 
4 692 MACSPUT_TERM:: 
52 D rt: $3 “PUSHL R2 SAVE R2 
52. O0000000'EF  9€ O4DE 694 MOVAB L“MACSTERM_RAB,R2 'GET ADDRESS OF TERMINAL RAB 
$8 AS 5 tiie rt O54 MOVE RO.RABSU. RSF AnD tSET THE RECORD ADDRESS, eB 
mm : OcED 69 $PUT B=(R2)- :WRITE THE LINE TO THE TERMINAL 
O4ED 698 ERR=G“MACSERR_PUT 
52 BEDO O4FC 699 POPL R2 ;RESTORE R2 
05 O4FF 700 RSB 
0500 701 
0500 702 END 
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Symbol table -SEP=1984 MACRO. SRC RVR.MAR; 1 6) 
FLGSV _ORDLST = 00000011 MACSGL_PC aeeeeere =X = 04 
FLG$V_P = $ OE MACSGL_PSECTPTR eeeeeeee =X 4 
FLGSV_RPTIRP : \f MACSGL_RECTYP aeeeeeee = X 4 
FLGSV_SEQF IL = : 1 MACS$GL_SAVE_PC aeeeeeee = X 4 
FLGSV_SKAN = 8 of MACSGL_ SAVE" SP aeeeeeee XK 04 
FLG$V_SPECOP = $ 2 MACSGL_SRCPAG aeeeeree Xx 04 
FLGSV~SPLALL = O0OtA MACSGL_STOIMPTR eeeeeeee =X 04 
FLGSV_STOIMF = 9000 12 MACS$GL~VALUE teeeeeee XK 06 
FLG$V_SYM2COL = ppueRee MACSK_AD SIZE aeeeeeee =X 04 
FLG$V_TOCFLG = 00000013 MACSK_LIST SIZE aeeeeeee =X = 04 
FLGSV_UPAFLG = 00000024 MACSK-SBT SIZ aeereeee =X 04 
FLGSV_UPDF IL = ast 7 MACSLIST_BYTES Q00001CD RG 4 
FLGSV_UPMARG = 00000026 MACSLIST_BYT_O 000001C5 RG 4 
FLGSV_XCRF = 0000001F MACSLIST_RAB eeeerere = X 04 
SHSZ = 0000007F MACSLST_CHAR 00000486 RG 04 
HEX TAB 0000023E R 04 MACSLST_HEX_BYT QOOO01FC RG 04 
HYPREN = BON ES MACSLST_PAG_HDR 00000397 RG 04 
INP$K_BUFSIZ = 000003E8 MACSOBJECT RAB eereeeee =X 04 
INT$K_BUFSIZ = 000013F4 MACSOBJHOROUT eeeeeeee =X 04 
INTSK_BUF WRN = 00001390 MACSOUTOBJ 00000148 RG 04 
LST$G_DIRLIST eeeeeeee = X 04 MAC OBJ 0000016C RG 04 
LST$G_MACROBIN eereeree = X 04 MACSPASS2_BRIVR 00000000 RG 04 
LST$G_MACROXPAN eeeereee = X = 04 MAC ND 00000080 RG 04 
LST$K_BUFSIZ = 00000086 MACSPUT_TERM 000004DC RG 04 
LSTSK_L_P_PAGE = 0000003C MACSSTOIM 00000100 RG 04 
LSTSK-TITCE SIZ = 00000028 MACSSYMNAMOUT 000000D6 RG 04 
CSAB_HD_ aeeeeere =X 04 MACSTERM_BLANK 000004C4 RG 04 
MACSAB_HD-NEWPG teeeceee =X 04 MACSTERM_RAB aeeeeere =X 04 
MACSAB_LINEBF eeeeeere =X = 04 MACSWRITE_ TERM 000004CB RG 04 
MACSAB_LST_END eeeeeeee = X 04 MACSWRILST 00000269 RG 04 
MACSAB_LST_OP2 eeeeeeee =X 04 MACSWRTOBJ 00000174 RG 04 
MACSAB_O08J/BuF teeeeere =X 04 MACSWRT_2_BLNK 00000252 RG 04 
MACSAB_OBJWRN eeeeeeee = X 04 MACSWRT LNK Q000024E RG 04 
MACSAB_SBT_END eeeeeeee =X 04 MACSWRT_BCNKLIN 0000025C RG 04 
MACSAB_SBT_IDNT eeeeeeee =X 04 MACSWRT-LST_INI 00000331 RG 04 
MACSAB_SEQ-NUM eeeeeeee =X 04 MAC_SUBSYS = 0000007) 
MACSAL" VALSTACK eeeeeree XK 04 OBJSK_BUFS = 00000200 
MACSCHRBYT 00000140 RG 04 OPF SM_LASTOPR = 00002000 
MACSCLOSE "LIst eeeeeeee = X 04 OPF SM_OPTEXP = 00001000 
MACSCLS_DEL_0OBJ eeeeeree = X 04 OPF$V_LASTOPR = 0000000D 
MACSDEC_OUT_L2R 00000485 RG 04 OPF$V_OPTEXP = 0000000C 
MACSDEC_OUT_L2x Q000046F RG 04 P2$AD6 eeeeeeee =X = 03 
C$DEC"OUT-R2L 00000447 RG 04 P2SAND eeeeeeee = X 03 
MACSEARCY_ERD 00000088 RG 4 P2$ASH aeeeeeee =X b° 
MACSERR_IRTERN eeeereee 4 P2SASN aeeeeeee = X 0 
MACSERR” PUT eeereeeer xX 04 P2SAUGPC eeeeeeee = X 03 
MACSFORA_LINENO eeeeeeee = X 04 P2$BDST eeeeeeee = X 03 
MACSGETLIN eeeeeeee XK 04 P2SCHKL aeeeeeee§ = =X 03 
aor pg eae teeeeree =X = 04 P2SDISPATCH 00000000 RG 03 
MACSGL_LINELN eeeeeree = X 04 P2$DIV aeeeenee = X 03 
MACSGL— =LINE =cut eeeneeee =X 4 P2SEND aeeeeeee =X 0 
MACSGL~ LIST “IT eeneerer x 4 P2SEPT keereere y 0 
MACSGL “LIST “LVL teereeee Xo 04 P2SERR eeeeeene x OQ 
MACSGL-LIST-PTR teeeeeee = X = 04 P2SETX eeeeeeee X 0 
MACSGL_LN_PAGE eenerere =X 4 POSFNEWL aeeeeeee§ = X 0 
MACS$GL-LPTPAG etreneee = 6X 4 P2$ILG 000000C2 RG 04 
MAC$GL"OBJ_RCNT eeeeeeeer KX 04 P2SINFO texeeeer xX = 03 


a 
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= 00038 PSCSM_BYTE = 00004000 
4 hd Senteeee w 0 PSCSM_CON = FFFFFF 8 
P2SMACL eererere 6X 8 PSCSM_DEF AULT = 8 Oo 
P2SMUL eeeeeree xX PSCSM_EXE = 00 8 
PISNEG teeeeeee X 0 PSCSM~GBL = 000000 
POSNEWL teeneeee Xx 0 PSCSM“LCL = FFFFFFEF 
P2SNEW teeeneee = X 0 PSCSM_LIB = 8 000 $ 
P2$NOT teeeeeee X 0 PSCSM"LONG = 000048 
P2SOP teeeeeee XK 0 PSCSM“NOEXE = FFFFFFBF 
P2SOR eereeere XxX 0 PSCSM_NOPIC = FFFFFFFE 
P2SPRIL teeeeree x 0 PSCSM_NORD = FEFFFF7F 
P2SPRT trereeee x 8 PSCSM_NOSHR = FFFFFFDF 
P2SPSECT reereeee x PSCSM_NOVEC = FFFFFDFF 
P2SREDEF eererene x 03 PSCSM_NOWRT = FFFFFEFF 
POSREF teeeeeee KX 03 PSCSM~OVR = 00000004 
P2SREST eeeeeeee KX 03 PSCS$M_PAGE = 00006400 
SSAME treneree x 03 PSCSM_PIC = 8 00001 
POSSAVE teeeeere X03 PSC$M~QUAD = 00004000 
P2$SBTT teeeenee KX 03 PSCSM-RD = 00000080 
P2SSETFLAG ereeeree KX 03 PSCSM_REL . 00000008 
P2$SETLONG eteeeeee = =X = 03 PSCSM_SHR . 00000020 
P2$SPIC 000000CC 04 PSCSM_USR . A 4 f B EL 
P2$SPID eeeerenre M 03 PSCSM_VEC Vs 9 fs 
P2$STIB krenenee x 03 PSCSM_WORD " 000044 ER 
P2SSTIL teeneeeer KX 03 PSCSM"WRT = 00000180 Ef 
P2$STIW rrereree x 03 PSC$S_ALIGNMENT = 00000004 FL 
P2SSTKEPT eereeeee§ KX 03 PSCSV_ALIGNFLG = QOO0Q000E | FL 
2$STKG eeetenet Xx 03 PSC$V_ALIGNMENT = Q000000A FL 
2sstk eeeeeree YX 03 PSCS$V_EXE = 44's 4 $ | FL 
P2$STKPC eeneeeee KX 03 PSC$V_GBL * 4444 ? FL 
P2$STKS grereeee xX 03 PSC$V_LIB ° 00 002 | FL 
P2$ST ereeeree KX 03 PSC$V_OVR . 44404 | FL 
P2$STOL eereeeee KX 03 PSC$V_PIC be 00007 | FL 
P2$ST ereeeree XK 03 PSC$V_RD . 444 'td FL 
P2$STRB teeeeere X 03 PSCSV~REL = 00000003 FL 
P2SSTRL eereeere = X 03 PSC$V_SHR . 000 B88 FL 
P2$STRSB teeeeeee X03 PSCS$V~VEC = 00000009 FL 
P2SSTRSW teneeere Xx 03 PSCSV "WRT = 90000008 | FL 
P2SSTRW reereeee x 03 PSCS$W_FLAG 00 0000 FL 
P2$STSB eteeeeee = X 03 PSC$W-OPTIONS 00000000 =. | 4 
P2$STSwW reeerene x 03 PSECTSMAIN a 00028 | Fi 
P2$SuUB eeererer x 03 RABSL_RBF ° Opp Ons S FL 
POSSUME eeeneeee X 03 RABSW_RSZ = 00 | rt 
P2SWRN teeretee x 03 ROX$SV_BINARY = BO 8 bbs Fi 
P2$XOR eereneee = = X 03 ROX$V_DECIMAL = 0000000 Fl 
PASS 2 LOOP 00000065 R 04 ROX$V_DOUBLE . St it | Fl 
PSC$B_RAME 00000004 ROX$V_FLOAT = POR8088 | 4 
Pe Se-misED 60000008 RONSVTHEKS = 90000008 | Fl 
PSC e . Fi 
PSC$K_BLKSIZ 0000001 ROX$V_HFLOAT * 44 4 Fl 
PSC$K-NO_OPTNS 0000000A RDXSVEOCTAL = 90000001 Fl 
PSC$L_CURLOC st 4 REGS_PC . 00 a Fi 
PSCSL_LINK 0000000 SEM . 4h Fl 
PSESHTABSE oP eerr? SYBSE-NARE. ~ 00000004 a 
“AL IGNFLG = 00004000 SYM$B_SEG 000000C 
PSC SMTALLOPTNS = gutted SYM$B_ TOKEN 00000008 Fl 
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SYMSK_BLKSIZ 
SYMSK_MAXLEN : 


SYMSK~TWOCOL 
SYMSL “LINK 
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82 ) CON LCL EXE NORD NOWRT NOVE 
C19.) 91 7 IC USR CON REL LCL NO EXE RD 
$ABSS 00000013 (« 19.) 0¢ ( ¢:) IC USR CON ABS LCL NOSHR EXE RD WRT NOVE 
MACSRO_DATA 900000E¢ ( 336.) 03 ( 3:) I¢ USR CON REL GBL EXE RD NOWRT NOVEC 
MAC$RO~CODE_P2 00000500 ( 1280:) 04 ¢ 4:) IC CON GBL EXE RD NOWRT NOVEC 
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toon n mw war oe meer aco ea as + 


Phase Page faults CPU Time Elapsed Time 
Initialization 2 0:00:00.04 0:00:01.5 
Command processing 16¢ 60; Q: 0:33 $000; Se 
Pass 227 0:00: . 0:00:20.5 
Symbol table sort 0 0:00:00. 9 0:00: €-3 
ass 146 8:8 701. 8: 3: 9 
Symbol table output 44 0:00:00. :00:01.50 
Psert synopsis output 00:0 88. 0:00:00.0 
Cross-reference output 00:00:00.0 aba ae 
Assembler run totals 554 00:00:06.21 00:00:33.0 


The working set Limit was 1350 pages. - 

36602 bytes (72 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 504 non-local and 48 local symbols. 
2 source Lines were read in Pass 1, producing object records in Pass 2 

15 pages of virtual memory were used to define 135 macros. 
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! Macro Library statistics : 
Seaaeecresre nee nce wren een aesaecsans 


Macro Library name Macros defined 


mitten? eee ty tae Oy bh 8 
$255$DUA28: (SYSLIBJSTARLET .MLB; 2 

TOTALS (all Libraries) 

568 GETS were required to define 14 macros. 

There were no errors, warnings or information messages. 
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